﻿
Imports System.IO
Imports xhtmlctrl

Public Class emptyA
    Inherits a

    Public Overrides Property href() As uri
        Get
            Return MyBase.href
        End Get
        Set(ByVal value As uri)
            assert(False, "should not set href to an emptyA.")
        End Set
    End Property

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        MyBase.href = emptyhref
    End Sub

End Class
